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COBSACC _DATE 


MODULE COBSACC_DATE ( : 
IDENT = *1-005" ! file: COBACCDAT.632 


— 
'e 
t® COPYRIGHT onions we 1980, 1982, 1984 BY 

'@ DIGITAL T COR PORATION, MAYNARD, MASSACHUSETTS. 
'# ALL RIGH 3 RESE 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPI 
:# ONLY IN ACCORDANCE WITH THE Tenn fice sven LICENSE AND WITH T 
tier OF THE oot COPYRIGHT SOFT WARE OR ANY a, 
OPIES Ps PROVIDED. OR oT WERWI SE MADE AVAILABLE TO 
hans PERSON. NO. rie E TO AND OWNERSHIP OF THE SOF TUARE IS HEREBY 


* 
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* 
* 
FERRED. * 
‘ 
® 
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* 
* 
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* 
* 
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te THE ee ee IN THIS SOFTWARE IS tt} TO_ CHANGE WITHOUT NOTICE 
AND —* VLD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


'@ DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: COBOL SUPPORT 
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ENVIRONMENT: Vax-11 User Mode 
AUTHOR: MLJ , CREATION DATE: 16-JAN-1979 
MODIFIED BY: 


1- - Original, MLJ 16-JAN-1979 

1- 2: Added boilerplate and comments. RKR an’ LY-1979 

1 - Declare psects via Lib brery oe 285 -AUG-1979 
= Change symbolic name of he Wtite. RKR 1-0CT-79 

1-005 = Cosmetic changes. RKR 1 eeter9 
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! Macros for psect declarations 
! Psects for COBS facility 


WITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
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FUNCTIONAL DESCRIPTION 
Returns date as YYMMDD 


i FORMAL PARAMETERS: 


DST.wt.ds Address of string descriptor to receive date 


i IMPLICIT INPUTS: 


Date, as supplied by SASCTIM call 


i IMPLICIT OUTPUTS: 


i ROUTINE VALUE: 
i COMPLETION CODES: 


i SIDE EFFECTS: 


DST: REF BLOCKC,BYTE); ! Pointer to destination descriptor 


HNAME = UPLIT( 
‘JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC °) 
: BLOCKC,LONG), 


MONTHNUM = ye {i 
mM cbs 06070809101112") 
BLOCKE ,WORD); 


TIMBUF : BLOCK(11 orig ' Buffer for SASCTIM 
BUFFER: =" onk AN grte ' Buffer for goses\ ing output 
TIMDESC: é ! Descriptor for TIMB 
TIMDESCLO) = 11; ' Set descriptor 
TIADESCEN} = TIMBUF; i ” , 
SASCTIM " F=TIMDESC i Get date 
BUF FERCO 0) = .T Tinbur 9, 0,16,0); ! Copy year of century 
INCR I FROA TO 11D 
Jeter: -1,0,24,0) EQL .TIMBUFL3,0,24,0) 
BEGIN opy month of year 
BUSFERE2.0,16,02 = .MONTHNUME.1,0,16,010"” ’ 


1b-bep-964 25:47:28 YAR-IH BLisgeSZ végo7K2 
GLOBAL ROUTINE COBSACC_DATE(DST): NOVALUE= 


005-7" uzenn HATS WM. e4 


saeica atta. — 231 (3 


3 Routine Size: 90 bytes, Routine Base: _COBSCODE + 0048 


3 195 S44 1 
156 48 0 EN ELUDOM 


: 1% 4 XITLOOP; 
; 165 : gx pres 
: 1 4 BUFFERLL, 0,16 . TIMBUFLO,0,16,0); d th 
: 1 ; 4 1 BUF Fert 4,6 0,803 03 EL ye EO, HEW BUFF Rts 6, 5°63 ¢ 4 * 
14 45 CHSCOPY(6, BUFFER, %C° “a .DSTLOSCSW_LE A ao = A “POINTERI); 
: 154 46 END; 
.TITLE COBSACC_DATE 
* IDENT Stitt 
-PSECT _COBSCODE,NOWRT, SHR, PIC,2 
52 50 41 20 41 0 42 45 & 6E 41 GA P.AAA: .A \JAN FEB MAR APR ; 
$2 39 $1 20 5 éh i f $8 rH i 3 ii i i 00 : SCII \JAN FEB APR MAY JUN JUL AUG SEP OCT \ 
43 465 46 SF 4 \NOV DEC \ : 
30 37 30 36 30 35 30 3 ; i 1 6 1 4 7 1011 : 
9 3 33 30 2 3} ; \0 $2086 0506070809101112\ ; 
P.AAA 
P.AAB 
SYSSASCTIM 
COBSACC_DATE, Save R2,R3,R4,R5 : 0183 
SE 18 ‘ 4, — 
04 AE 10 AE TIMGUF , TIMDESC+4 ; 
08 AE TIMDESC : 
000000006 00 04 #4, SYSSASCTIM : 
08 AE 19 «A TIMBUF+9, BUFFER : 
51 13. AE 18 ae #0, #24 TIMBUF +3, R1 : 
51 9E 18 #0. #24, a(SP)+, RI : 
OA AE B2 a pete BUFFER+2 ; 
E3 50 : 
0c Ac 10 AE Tinéut’ Bur sEnss : 
2 0c AE FFERS4 : 
oc A 0 #48, BUFFER+4 ; 
5 06 AC DST. R + 0245 
60 20 08 AE 0 #6, BUFFER, #32, (RO), @4(RO) : 
| 


copsacc DATE 15-Sep-1984 $5347 :¢8 AX-11 Bliss-32 V4.0-74 Page 


14-Sep-19 COBRTL.SRCIJCOBACCDAT .852;1 


PSECT SUMMARY 
Name Bytes Attributes 
_COBSCODE 162 WNOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


— — Symbols -<------ Pages Processing 
File Total Loaded Percent Mapped Time 
_$255$DUA28: CSYSLIBJSTARLET.L32;1 9776 5 0 581 00:00.8 


COMMAND QUALIFIERS 
BLISS/CHECK=CFIELD, SNETIAL OPTIAIZE) /NOTRACE/LIS@LISS:COBACCDAT/OBJ=08JS: COBACCDAT MSRC$: COBACCDAT/UPDATE=(ENH$: COBACCDAT 


Size: 90 + 72 data bytes 
Time :03.1 


Run ° 

Elapsed Time: 8 
nes/CPU Min 

Lenenes/CPU-Rin: 2671 

56 pages 


— 
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